﻿Public Class ConfiguringWordResponse


    Public Sub New(ByVal responseXml As XDocument)
        _status = responseXml.<response_ngword>.@status

        If responseXml.<response_ngword>.<error>.Value IsNot Nothing Then
            _hasError = True
            _errorCode = responseXml.<response_ngword>.<error>.<code>.Value
            _errorDescription = responseXml.<response_ngword>.<error>.<description>.Value
        End If        
    End Sub


    Private _hasError As Boolean
    Public ReadOnly Property HasError() As Boolean
        Get
            Return _hasError
        End Get
    End Property

    Private _status As String
    Public ReadOnly Property Status() As String
        Get
            Return _status
        End Get
    End Property

    Private _errorCode As String
    Public ReadOnly Property ErrorCode() As String
        Get
            Return _errorCode
        End Get
    End Property

    Private _errorDescription As String
    Public ReadOnly Property ErrorDescription() As String
        Get
            Return _errorDescription
        End Get
    End Property

End Class
